(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     34052,       1188]
NotebookOptionsPosition[     29841,       1039]
NotebookOutlinePosition[     30459,       1063]
CellTagsIndexPosition[     30379,       1058]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.0", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["MathMR", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465],

Cell["MathMR`", "Categorization",
 CellLabel->"Context",
 CellID->468444828],

Cell["MathMR/ref/HamiNSpinXYZ", "Categorization",
 CellLabel->"URI"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["XXXX", "Keywords",
 CellID->1164421360]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["HamiNSpinXYZ", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["   ", "ModInfo"],
 Cell[BoxData[
  RowBox[{"HamiNSpinXYZ", "[", 
   RowBox[{"n", ",", "spinval"}], "]"}]], "InlineFormula"],
 " \[LineSeparator]generate a Hamiltonian form with given spin number"
}], "Usage",
 CellChangeTimes->{{3.498550835396291*^9, 3.498550866757107*^9}},
 CellID->982511436],

Cell["XXXX", "Notes",
 CellID->1067943069]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell["XXXX", "Tutorials",
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell["XXXX", "SeeAlso",
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"HamiNSpinXYZ", "[", 
   RowBox[{"2", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"1", "/", "2"}], ",", 
      RowBox[{"3", "/", "2"}]}], "}"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.498550869899948*^9, 3.49855088882972*^9}},
 CellLabel->"In[7]:=",
 CellID->1549827604],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       FractionBox[
        SubscriptBox["Bz", "1"], "2"], "+", 
       FractionBox[
        RowBox[{"3", " ", 
         SubscriptBox["Bz", "2"]}], "2"], "+", 
       RowBox[{
        FractionBox["3", "4"], " ", 
        SubscriptBox["zz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       FractionBox[
        RowBox[{
         SqrtBox["3"], " ", 
         SubscriptBox["Bx", "2"]}], "2"], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["By", "2"]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], "0", "0", 
      RowBox[{
       FractionBox[
        SubscriptBox["Bx", "1"], "2"], "-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         SubscriptBox["By", "1"]}], "2"], "+", 
       RowBox[{
        FractionBox["3", "4"], " ", 
        SubscriptBox["xz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["3", "4"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["yz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], "0", "0"},
     {
      RowBox[{
       FractionBox[
        RowBox[{
         SqrtBox["3"], " ", 
         SubscriptBox["Bx", "2"]}], "2"], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["By", "2"]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       FractionBox[
        SubscriptBox["Bz", "1"], "2"], "+", 
       FractionBox[
        SubscriptBox["Bz", "2"], "2"], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SubscriptBox["zz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       SubscriptBox["Bx", "2"], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["By", "2"]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SubscriptBox["zx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["zy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], "0", 
      RowBox[{
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       FractionBox[
        SubscriptBox["Bx", "1"], "2"], "-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         SubscriptBox["By", "1"]}], "2"], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SubscriptBox["xz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["yz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        SubscriptBox["xx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["xy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["yx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SubscriptBox["yy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], "0"},
     {"0", 
      RowBox[{
       SubscriptBox["Bx", "2"], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["By", "2"]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SubscriptBox["zx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["zy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       FractionBox[
        SubscriptBox["Bz", "1"], "2"], "-", 
       FractionBox[
        SubscriptBox["Bz", "2"], "2"], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SubscriptBox["zz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       FractionBox[
        RowBox[{
         SqrtBox["3"], " ", 
         SubscriptBox["Bx", "2"]}], "2"], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["By", "2"]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], "0", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        SubscriptBox["xx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["xy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["yx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SubscriptBox["yy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       FractionBox[
        SubscriptBox["Bx", "1"], "2"], "-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         SubscriptBox["By", "1"]}], "2"], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SubscriptBox["xz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["yz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}]},
     {"0", "0", 
      RowBox[{
       FractionBox[
        RowBox[{
         SqrtBox["3"], " ", 
         SubscriptBox["Bx", "2"]}], "2"], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["By", "2"]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       FractionBox[
        SubscriptBox["Bz", "1"], "2"], "-", 
       FractionBox[
        RowBox[{"3", " ", 
         SubscriptBox["Bz", "2"]}], "2"], "-", 
       RowBox[{
        FractionBox["3", "4"], " ", 
        SubscriptBox["zz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], "0", "0", 
      RowBox[{
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       FractionBox[
        SubscriptBox["Bx", "1"], "2"], "-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         SubscriptBox["By", "1"]}], "2"], "-", 
       RowBox[{
        FractionBox["3", "4"], " ", 
        SubscriptBox["xz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["3", "4"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["yz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}]},
     {
      RowBox[{
       FractionBox[
        SubscriptBox["Bx", "1"], "2"], "+", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         SubscriptBox["By", "1"]}], "2"], "+", 
       RowBox[{
        FractionBox["3", "4"], " ", 
        SubscriptBox["xz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["3", "4"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["yz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SubscriptBox["Bz", "1"], "2"]}], "+", 
       FractionBox[
        RowBox[{"3", " ", 
         SubscriptBox["Bz", "2"]}], "2"], "-", 
       RowBox[{
        FractionBox["3", "4"], " ", 
        SubscriptBox["zz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       FractionBox[
        RowBox[{
         SqrtBox["3"], " ", 
         SubscriptBox["Bx", "2"]}], "2"], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["By", "2"]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], "0", "0"},
     {
      RowBox[{
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       FractionBox[
        SubscriptBox["Bx", "1"], "2"], "+", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         SubscriptBox["By", "1"]}], "2"], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SubscriptBox["xz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["yz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        SubscriptBox["xx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["xy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["yx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SubscriptBox["yy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], "0", 
      RowBox[{
       FractionBox[
        RowBox[{
         SqrtBox["3"], " ", 
         SubscriptBox["Bx", "2"]}], "2"], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["By", "2"]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SubscriptBox["Bz", "1"], "2"]}], "+", 
       FractionBox[
        SubscriptBox["Bz", "2"], "2"], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SubscriptBox["zz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       SubscriptBox["Bx", "2"], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["By", "2"]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SubscriptBox["zx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["zy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], "0"},
     {"0", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        SubscriptBox["xx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["xy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["yx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SubscriptBox["yy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       FractionBox[
        SubscriptBox["Bx", "1"], "2"], "+", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         SubscriptBox["By", "1"]}], "2"], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SubscriptBox["xz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["yz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], "0", 
      RowBox[{
       SubscriptBox["Bx", "2"], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["By", "2"]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SubscriptBox["zx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["zy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SubscriptBox["Bz", "1"], "2"]}], "-", 
       FractionBox[
        SubscriptBox["Bz", "2"], "2"], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SubscriptBox["zz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       FractionBox[
        RowBox[{
         SqrtBox["3"], " ", 
         SubscriptBox["Bx", "2"]}], "2"], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["By", "2"]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}]},
     {"0", "0", 
      RowBox[{
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["xy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["yy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       FractionBox[
        SubscriptBox["Bx", "1"], "2"], "+", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         SubscriptBox["By", "1"]}], "2"], "-", 
       RowBox[{
        FractionBox["3", "4"], " ", 
        SubscriptBox["xz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["3", "4"], " ", "\[ImaginaryI]", " ", 
        SubscriptBox["yz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], "0", "0", 
      RowBox[{
       FractionBox[
        RowBox[{
         SqrtBox["3"], " ", 
         SubscriptBox["Bx", "2"]}], "2"], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["By", "2"]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zx", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        SubscriptBox["zy", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SubscriptBox["Bz", "1"], "2"]}], "-", 
       FractionBox[
        RowBox[{"3", " ", 
         SubscriptBox["Bz", "2"]}], "2"], "+", 
       RowBox[{
        FractionBox["3", "4"], " ", 
        SubscriptBox["zz", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]]}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.498550884047657*^9, 3.498550901350957*^9}, 
   3.499250711615691*^9},
 CellLabel->"Out[7]//MatrixForm=",
 CellID->1068738519]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{1584, 816},
WindowMargins->{{0, Automatic}, {Automatic, 25}},
CellContext->"Global`",
FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "iso8859-1"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[28321, 981, 100, 2, 56, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 30240, 1051}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 325, 14, 26, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[895, 38, 68, 1, 30, "CategorizationSection",
 CellID->1122911449],
Cell[966, 41, 79, 2, 70, "Categorization",
 CellID->686433507],
Cell[1048, 45, 79, 2, 70, "Categorization",
 CellID->605800465],
Cell[1130, 49, 76, 2, 70, "Categorization",
 CellID->468444828],
Cell[1209, 53, 68, 1, 70, "Categorization"]
}, Closed]],
Cell[CellGroupData[{
Cell[1314, 59, 55, 1, 20, "KeywordsSection",
 CellID->477174294],
Cell[1372, 62, 45, 1, 70, "Keywords",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[1454, 68, 65, 1, 20, "TemplatesSection",
 CellID->1872225408],
Cell[1522, 71, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[1619, 75, 82, 2, 70, "Template",
 CellID->158391909],
Cell[1704, 79, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[1788, 83, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[1907, 90, 53, 1, 20, "DetailsSection",
 CellID->307771771],
Cell[1963, 93, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2029, 97, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2101, 101, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2168, 105, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2240, 109, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2304, 113, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2368, 117, 63, 2, 70, "Details",
 CellID->732958810],
Cell[2434, 121, 78, 2, 70, "Details",
 CellID->222905350],
Cell[2515, 125, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2619, 132, 55, 1, 64, "ObjectName",
 CellID->1224892054],
Cell[2677, 135, 317, 8, 76, "Usage",
 CellID->982511436],
Cell[2997, 145, 42, 1, 26, "Notes",
 CellID->1067943069]
}, Open  ]],
Cell[CellGroupData[{
Cell[3076, 151, 57, 1, 44, "TutorialsSection",
 CellID->250839057],
Cell[3136, 154, 45, 1, 17, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[3218, 160, 83, 1, 31, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[3304, 163, 58, 1, 17, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[3399, 169, 65, 1, 31, "RelatedLinksSection",
 CellID->1584193535],
Cell[3467, 172, 49, 1, 17, "RelatedLinks",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[3553, 178, 55, 1, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[3611, 181, 43, 1, 17, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[3691, 187, 57, 1, 31, "MoreAboutSection",
 CellID->38303248],
Cell[3751, 190, 46, 1, 17, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[3834, 196, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[CellGroupData[{
Cell[4215, 211, 339, 11, 28, "Input",
 CellID->1549827604],
Cell[4557, 224, 23715, 751, 255, "Output",
 CellID->1068738519]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28321, 981, 100, 2, 56, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[28424, 985, 125, 3, 34, "ExampleSection",
 CellID->1293636265],
Cell[28552, 990, 148, 3, 22, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[28725, 997, 127, 3, 22, "ExampleSection",
 CellID->2061341341],
Cell[28855, 1002, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[28988, 1007, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[29133, 1013, 131, 3, 22, "ExampleSection",
 CellID->258228157],
Cell[29267, 1018, 142, 3, 22, "ExampleSection",
 CellID->2123667759],
Cell[29412, 1023, 135, 3, 22, "ExampleSection",
 CellID->1305812373],
Cell[29550, 1028, 140, 3, 22, "ExampleSection",
 CellID->1653164318],
Cell[29693, 1033, 132, 3, 22, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
